home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 50
/
050.d81
/
craps boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
36 lines
10 poke53265,0:poke53280,1:poke53281,1
20 printchr$(142)"[147] [154][180][181][161][146][182][170][167] [150]loadstar presents[154][165][180][181][161][182][170][146]"
30 print"[153] [164] [164] [164][164][164][164][164] [164][164][164][164][164] [164][164][164][164][164] [164][164][164]"
40 print"[206][206][165] [206][206][165][206] [206][165][206] [206][205] [206] [206][180] [206] [206][205]"
50 print" [146][153] [180] [146][153] [180] [146][153][206] [223][146][153] [205] [146][153][206] [169] [223][146][153] [205]"
60 print" [146][153] [180] [146][153] [180] [146][153] [180] [146][153] [180] [223][223][146][153][206][180] [146][153] [180] [169][146][169]";
70 print"[153][180] [223][223][146][153][206][180] [146][153] [180] [146][153] [180] [146][153] [180] [146][153] [180] [146][153] [180] [146][153] [204][175] ";
80 print" [146][153] [180] [146][153] [180] [146][153] [180] [146][153] [180] [146][153] [180] [146][153] [180] [146][153] [180]";
90 print" [146][153][206] [206][180] [146][153] [180] [146][153] [180] [146][153] [180] [146][153] [180] [146][153] [180] [146][153] [180] ";
100 print" [146][153] [180] [146][153][206] [146][153] [180] [146][153] [180] [146][153][206][205] [146][153][206] [146][153] [180] ";
110 print" [146][153] [180] [146][153] [180] [146][153] [180] [146][153] [180] [146][153] [180][223][223][146] [153][205][169][146][169] [153][175]";
120 print" [146][153] [204][175] [146][153] [204][175][175][175] [146][153][206] [146][153] [204][175][175][175] [146][153][206][205][164][164][164] [146][153][206] [223][223][169][146][169] ";
130 print"[153][206] [146][153][206] [206][180] [146][153][206] [169][146][169][153] [146][153][206] [206][180][223][223][146][153][206] [169][146][169]"
140 print" [223][169] [146][153][206] [146][169] [146][153][206] [223] [146][169]"
150 print" [153][164][164] [164][164][164][164] [164][164] [164][164][164][164] [164][164] [153][206] [206][205] [206] [206][205] [206] [206][205]";
160 print" [206] [206][205] [206] [206][205] [169] [223][146][153] [205] [223][146][153] [205]";
170 print" [169] [223][146][153] [205] [223][146][153] [205] [169] [223][146][153] [205] [169][146][169][153][180] [223][223][146][153][206][180] [146][153] [180] ";
180 print"[223][223][146][153][206][180][169][146][169][153][180] [223][223][146][153][206][180] [146][153] [180] [223][223][146][153][206][180][169][146][169][153][180] [223][223][146][153][206] ";
190 print" [146][153] [180] [146][153][206] [146][153] [204][175][175] [146][153][206] [146][153] [204][175][175] [146][153] [180] [146][153] [204][175][175] [146][153][206] ";
200 print" [146][153][206][205][164][164] [146][153] [180] [146][153][206] [169][146][169] [146][153][206] [146][153] [180] [146][153][206] [169][146][169]";
210 print" [223][223][146][153][206] [206][205] [146][153] [180] [164] [146][169][153][205] [146][153] [180] [146][169] ";
220 print"[223] [223][146][153] [205] [146][153] [180] [206][206][180] [146][153] [180][223][223][146][153] [205] [146][153] [180] [146][153] [180] [146][153] [180]";
230 print" [164] [223][223][146][153][206][165] [146][153][206][205][164][164] [146][153][206] [146][153] [180] [223][223][146][153][206][180] [146][153] [180] [146][153] [180]";
240 print" [146][153] [180] [206][206][205][164][164] [146][153][206] [223][223][146][153][206] [169][146][169] [146][153] [180] [146][153] [180] [146][153] [180] [146]";
250 print" [153][180] [146][153] [180] [223][223][146][153][206] [169][146][169] [223] [146][169] [146][153][206] [146][153][206] [146][153][206] ";
260 print" [146][153][206] [146][153][206] [223] [146][169]"
270 print" [144](c) 1988 louis k. avanzi";:poke53265,27:forz=1to2500:next
280 print" [150][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
290 print" instructions (y/n) ? [146]";
300 getz$:ifz$=""then300
310 ifz$="y"thenx$="instructions" :goto320
311 ifz$="n"thenx$="video craps":goto320
312 goto300
320 poke53280,.:poke53281,.:poke198,5:print"[144][147]load"chr$(34)x$chr$(34)",8";
330 poke631,13:poke632,82:poke633,85:poke634,78:poke635,13:end